﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities


Partial Class NuevaRequisicion
    Inherits System.Web.UI.Page
    Dim str_error As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargarProyectos()
        End If
    End Sub



    Sub CargarProyectos()

        Dim capanegocios As New ProyectoBL
        Try
            gdvProyectos.DataSource = capanegocios.ListarProyectos

            gdvProyectos.DataBind()

        Catch ex As Exception
            str_error = capanegocios.CapturaError

            Response.Redirect("Errores.aspx?par=" & str_error)
        Finally
            capanegocios = Nothing

        End Try
    End Sub

End Class
